# (decoded with TMPL 11972)
{----------}
Procedure DoClear;
Begin
	if cur^.text <> nil then begin
		TEDelete (cur^.text);
	end;
End; {DoClear}